home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
VINDEX.DIR
/
00035_Script_startmovie
< prev
next >
Wrap
Text File
|
1995-09-06
|
2KB
|
87 lines
--òò StartMovie Handlers
--** July 15 95 2 P.M.
--** Needs to have functions added to reference link cast members
Global gBtn17, gBtn16, gWhatMovie,gNewMarker, gTheHelpIsOn , gIndexManager,gReInitGlobals
on StartMovie
set gBtn16 = birth(script "a3StateButton", 46, 1931, "SV141819.AIF", "CrossEIndex", "HandCursor")
set gBtn17 = birth(script "a3StateButton", 47, 1925, "SV141819.AIF", "CrossAIndex", "HandCursor")
put "VikingW.dir" into gWhatMovie
if gReInitGlobals = 1 then
GlobalSetUpFromTheatre
set gReInitGlobals = 0
end if
VGlobalsSetUpIndex
set gTheHelpIsOn = 0
initializeIndex
set the cursor of sprite 3 = [1904 , 1905]
set spriteCount = 3
repeat while (spriteCount < 29)
set the cursor of sprite spriteCount = [1904 , 1905]
set spriteCount = spriteCount + 1
end repeat
set the cursor of sprite 40 = [1904 , 1905]
end
on StopMovie
hidecontrol (gBtn16)
hidecontrol (gBtn17)
set gBtn16 = 0
set gBtn17 = 0
unload 1, 3
disposeIndexSystem
end
--òòInitialize Index System Code
on initializeIndex
--òò use sprite 2 to hold sub menu
puppetSprite 2,TRUE
--òò use sprite 40 to hold sub memu icon art
puppetSprite 40,TRUE
set gIndexManager = birth ( script "aIndexManager")
initIndex(gIndexManager)
end
--òòDispose of objects
on disposeIndexSystem
puppetSprite 2, FALSE
puppetSprite 40,FALSE
set gIndexManager = 0
end
--òòUser input interface handlers : Track mouse movement and clicks
on rolloverIndex
testIndexRollover(gIndexManager)
end
on clickAlpha
clickAlpha(gIndexManager)
end
on clickTopic
clickTopic(gIndexManager)
end
on clickRefLink
set horzPos = the mouseH
set vertPos = the mouseV
clickRefLink(gIndexManager ,horzPos,vertPos)
end
on resetIndex
resetIndex (gIndexManager)
end
on doBeep
--beep 3
--put "gotFunctionString"
end
on setTEXT startC,stopC
repeat while (startC <= stopC)
set the scriptText of cast startC = "--0,0,0,0,doBeep;"
set startC = startC + 1
end repeat
end